﻿Public Class kiemtra
    Public Function ktra_rong(ByVal chuoi As String) As Boolean
        If chuoi = "" Then
            Return False
        Else
            Return True
        End If
    End Function
    Public Function ktr_so(ByVal sonhap As String) As Boolean

        Try
            Dim tmp As Double = System.Convert.ToDouble(sonhap)
            Return True
        Catch
            Return False
        End Try


    End Function


End Class
